home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)te.d64 / crossover.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  190 lines
  1. 10 REM CROSSOVER DESIGN PROGRAMS
  2. 20 REM BY ANDREW C ERICKSEN,JR.   MONROE, WISC.  53566
  3. 25 POKE53280,15:POKE53281,15:PRINT"[144]"
  4. 30 PRINT"[147]":PRINTTAB(12)"CROSSOVER DESIGN":PRINT:PRINT
  5. 40 PRINT" 1.FIND L AND C."
  6. 45 PRINT"  (CROSSOVER FREQ.& IMPEDANCE KNOWN)"
  7. 50 PRINT:PRINT" 2.FIND CROSSOVER FREQ."
  8. 55 PRINT"  (L.,C.,& IMPEDANCE KNOWN) (12DB. ONLY)"
  9. 60 PRINT" 3.FIND CROSSOVER FREQ."
  10. 65 PRINT"  (C.& IMPEDANCE KNOWN) (6DB. ONLY)"
  11. 70 PRINT:PRINT" 4.FIND CROSSOVER FREQ."
  12. 72 PRINT"  (L.,& IMPEDANCE KNOWN) (6DB. ONLY)"
  13. 74 PRINT:PRINT" 5.FIND L AND C."
  14. 76 PRINT"  (CROSSOVER FREQ.& IMPEDANCE KNOWN)"
  15. 78 PRINT"  (18 DB. ONLY)"
  16. 96 PRINT:PRINT" 6.END"
  17. 98 PRINT:PRINT:INPUT " SELECTION (1-6)";P
  18. 100 IFP=1THEN200
  19. 110 IFP=2THEN590
  20. 120 IFP=3THEN790
  21. 130 IFP=4THEN990
  22. 140 IFP=5THEN1200
  23. 150 IFP=6THENEND
  24. 200 PRINT"[147]":PRINT:PRINT:PRINTTAB(5)"6 AND 12 DB. CROSSOVER NETWORK"
  25. 205 PRINTTAB(5)"CALCULATIONS"
  26. 210 PRINT:PRINTTAB(10)"L.IN MH. AND C.IN UF."
  27. 230 PRINT:PRINT:INPUT " ENTER FC IN HZ.";FC
  28. 240 PRINT:PRINT:INPUT " ENTER Z IN OHM'S";Z
  29. 250 PRINT"[147]":PRINT:PRINT:PRINT" FC=";FC
  30. 260 PRINT:PRINT" Z=";Z
  31. 270 L1=159*Z/FC:C1=159000/(FC*Z):L2=159*Z*SQR(2)/FC:C2=159000/(FC*Z*SQR(2))
  32. 280 PRINT:PRINT" 6DB. L=";L1;"MH.":PRINTTAB(6)"LOW PASS ONLY - NO CAP."
  33. 290 PRINT:PRINT" 6DB. C=";C1;"UF.":PRINTTAB(6)"HIGH PASS ONLY - NO COIL."
  34. 300 PRINT:PRINT" 12DB. L="L2;"MH."
  35. 310 PRINT:PRINT" 12DB. C=";C2;"UF."
  36. 320 PRINT:INPUT" NEW VALUES OF FC. & Z. (Y/N)";R$
  37. 330 IFR$="Y"THEN200
  38. 340 IFR$="N"THEN350
  39. 350 PRINT:PRINT:INPUT " PRINTER OUTPUT (Y/N)";P$
  40. 360 IFP$="Y"THEN375
  41. 370 IFP$="N"THEN30
  42. 375 OPEN1,4
  43. 380 PRINT#1,CHR$(14)TAB(2)"6 & 12 DB. CROSSOVER CALCULATIONS"
  44. 385 PRINT#1,CHR$(15)CHR$(10)
  45. 400 PRINT#1,TAB(2)"FC.=";FC;"HZ."
  46. 405 PRINT#1,CHR$(10)
  47. 410 PRINT#1,TAB(2)"Z.=";Z;"OHM'S"
  48. 415 PRINT#1,CHR$(10)
  49. 420 PRINT#1,TAB(2)"6 DB. L.=";L1;"MH.   (LOW PASS ONLY - NO CAP.)"
  50. 422 PRINT#1,CHR$(10)
  51. 430 PRINT#1,TAB(2)"6 DB. C.=";C1;"UF.   (HI PASS ONLY - NO COIL)"
  52. 432 PRINT#1,CHR$(10)
  53. 440 PRINT#1,TAB(2)"12 DB. L.=";L2;"MH."
  54. 442 PRINT#1,CHR$(10)
  55. 450 PRINT#1,TAB(2)"12 DB. C.=";C2;"UF."
  56. 452 PRINT#1,CHR$(10)CHR$(10)CHR$(10)CHR$(10)CHR$(10)
  57. 455 CLOSE1
  58. 460 GOTO30
  59. 590 PRINT"[147]":PRINT:PRINT:PRINT" CROSSOVER FREQ. CALCULATION"
  60. 595 PRINT" (L.,C.,& Z. KNOWN) (12 DB. ONLY)
  61. 600 [153]:[133] " ENTER L. IN MH.=";L
  62. 610 [153]:[133] " ENTER C. IN UF.=";C
  63. 620 [153]:[133] " ENTER Z. IN OHMS=";Z
  64. 640 FC[178]159000[173](C[172]Z[172][186](2))
  65. 650 FL[178](159[172]Z[172][186](2))[173]L
  66. 660 [153]:[153]" CROSSOVER FREQ.OF L.=";FL;"HZ."
  67. 665 [153]:[153]" CROSSOVER FREQ. OF C.=";FC;"HZ."
  68. 667 [153]:[153]" 12 DB. PER OCTAVE"
  69. 670 [153]:[133]" NEW VALUE OF CROSSOVER FREQ. (Y/N)";R$
  70. 672 [139] R$[178]"Y"[167]590
  71. 674 [139] R$[178]"N"[167]690
  72. 690 [153]:[153]:[133] " PRINTER OUTPUT (Y/N)";P$
  73. 695 [139]P$[178]"Y"[167]705
  74. 700 [139]P$[178]"N"[167]30
  75. 705 [159]1,4
  76. 710 [152]1,[199](14)[163]2)"CROSSOVER FREQ. CALCULATION"
  77. 715 [152]1,[199](15)[199](10)
  78. 720 [152]1,[163]2)"12 DB. PER OCTAVE"
  79. 722 [152]1,[199](10)
  80. 723 [152]1,[163]2)"Z.=";Z;"OHM'S"
  81. 724 [152]1,[199](10)
  82. 725 [152]1,[163]2)"L.=";L;"MH.
  83. 727 PRINT#1,CHR$(10)
  84. 730 PRINT#1,TAB(2)"CROSSOVER FREQ.OF L.=";FL;"HZ."
  85. 732 PRINT#1,CHR$(19)
  86. 735 PRINT#1,TAB(2)"C.=";C;"UF."
  87. 737 PRINT#1,CHR$(10)
  88. 740 PRINT#1,TAB(2)"CROSSOVER FREQ. OF C.=";FC;"HZ."
  89. 747 PRINT#1,CHR$(10)CHR$(10)CHR$(10)CHR$(10)CHR$(10)
  90. 750 CLOSE1
  91. 755 GOTO30
  92. 790 PRINT"[147]":PRINT:PRINT:PRINT" CROSSOVER FREQ. CALCULATION"
  93. 795 PRINT" (C.,& Z. KNOWN) (6DB. ONLY)"
  94. 800 PRINT:INPUT " ENTER C. IN UF.";C1
  95. 810 PRINT:INPUT " ENTER Z. IN OHM'S";Z
  96. 820 FC=159000/(C1*Z)
  97. 830 PRINT"[147]":PRINT:PRINT:PRINT" CROSSOVER FREQ.=";FC;"HZ. (6DB.)"
  98. 840 PRINT:PRINT" CAPACITANCE=";C1;"UF."
  99. 845 PRINT:PRINT" IMPEDANCE=";Z;"OHM'S"
  100. 850 PRINT:PRINT:INPUT " NEW VALUES OF C. OR Z.? (Y/N)";R$
  101. 860 IFR$="Y"THEN790
  102. 870 IFR$="N"THEN875
  103. 875 OPEN1,4
  104. 880 PRINT:PRINT:INPUT" PRINTER OUTPUT (Y/N)";P$
  105. 885 IFP$="Y"THEN895
  106. 890 IFP$="N"THEN30
  107. 892 OPEN1,4
  108. 895 PRINT#1,CHR$(14)TAB(2)"CROSSOVER FREQ. CALCULATION"
  109. 900 PRINT#1,CHR$(15)CHR$(10)
  110. 905 PRINT#1,TAB(2)"IMPEDANCE=";Z;"OHM'S"
  111. 910 PRINT#1,CHR$(10)
  112. 920 PRINT#1,TAB(2)"CAPACITANCE=";C1;"UF."
  113. 930 PRINT#1,CHR$(10)
  114. 940 PRINT#1,TAB(2)"CROSSOVER FREQ.=";FC;"HZ. (6DB.)"
  115. 945 PRINT#1,CHR$(10)CHR$(10)CHR$(10)CHR$(10)CHR$(10)
  116. 950 CLOSE1
  117. 955 GOTO30
  118. 990 PRINT"[147]":PRINT:PRINT:PRINT" CROSSOVER FREQ. CALCULATION"
  119. 995 PRINT" (L.,& Z. KNOWN) (6DB. ONLY)"
  120. 1000 PRINT:INPUT " ENTER L. IN MH.";L1
  121. 1010 PRINT:INPUT " ENTER Z. IN OHM'S";Z
  122. 1020 FC=(159*Z)/L1
  123. 1030 PRINT"[147]":PRINT:PRINT:PRINT" CROSSOVER FREQ.=";FC;"HZ. (6DB.)"
  124. 1040 PRINT:PRINT" INDUCTANCE=";L1;"MH."
  125. 1045 PRINT:PRINT" IMPEDANCE=";Z;"OHM'S"
  126. 1050 PRINT:INPUT" NEW VALUES OF L., OR Z.? (Y/N)";R$
  127. 1060 IFR$="Y"THEN990
  128. 1070 IFR$="N"THEN1080
  129. 1080 PRINT:PRINT:INPUT" PRINTER OUTPUT (Y/N)";P$
  130. 1085 IFP$="Y"THEN1092
  131. 1090 IFP$="N"THEN30
  132. 1092 OPEN1,4
  133. 1095 PRINT#1,CHR$(14)TAB(2)"CROSSOVER FREQ. CALCULATION"
  134. 1100 PRINT#1,CHR$(15)CHR$(10)
  135. 1105 PRINT#1,TAB(2)"IMPEDANCE=";Z;"OHM'S"
  136. 1110 PRINT#1,CHR$(10)
  137. 1120 PRINT#1,TAB(2)"INDUCTANCE=";L1;"MH."
  138. 1130 PRINT#1,CHR$(10)
  139. 1140 PRINT#1,TAB(2)"CROSSOVER FREQ.=";FC;"HZ. (6DB.)"
  140. 1145 PRINT#1,CHR$(10)CHR$(10)CHR$(10)CHR$(10)CHR$(10)
  141. 1150 CLOSE1
  142. 1155 GOTO30
  143. 1200 PRINT"[147]":PRINT:PRINT:PRINT"  18DB. CROSSOVER NETWORK CALCULATIONS"
  144. 1210 PRINT:PRINTTAB(10)"L.IN MH. AND C.IN UF."
  145. 1220 PRINT:PRINT:INPUT" ENTER FC IN HZ.";FC
  146. 1230 PRINT:PRINT:INPUT" ENTER Z.IN OHM'S";Z
  147. 1240 PRINT"[147]":PRINT:PRINT:PRINT"  FC=";FC
  148. 1250 PRINT:PRINT"  Z=";Z
  149. 1260 C1=159000/(FC*Z):C3=159000/(FC*Z*1.6):C4=2*C1
  150. 1270 L1=159*Z/FC:L3=(159*Z*1.6)/FC:L4=L1/2
  151. 1280 PRINT:PRINT"  (LOW PASS SECTION)"
  152. 1290 PRINT:PRINT"  INPUT INDUCTOR=";L3;"MH."
  153. 1300 PRINT"  OUTPUT INDUCTOR=";L1;"MH."
  154. 1310 PRINT"  SWAMP CAPACITOR=";C4;"UF."
  155. 1320 PRINT:PRINT"  (HIGH PASS SECTION)"
  156. 1330 PRINT:PRINT"  INPUT CAPACITOR=";C3;"UF."
  157. 1340 PRINT"  OUTPUT CAPACITOR=";C1;"UF."
  158. 1350 PRINT"  SWAMP CHOKE=";L4;"MH."
  159. 1360 PRINT:INPUT"  NEW VALUES OF FC.& Z.  (Y/N)";D$
  160. 1370 IFD$="Y"THEN1200
  161. 1380 IFD$="N"THEN1390
  162. 1390 PRINT:INPUT"  PRINTER OUTPUT  (Y/N)";G$
  163. 1400 IFG$="Y"THEN1420
  164. 1410 IFG$="N"THEN30
  165. 1420 OPEN1,4
  166. 1430 PRINT#1,CHR$(14)TAB(2)" 18 DB. CROSSOVER CALCULATIONS"
  167. 1440 PRINT#1,CHR$(15)CHR$(10)
  168. 1442 PRINT#1,TAB(2)"FC=";FC;"HZ."
  169. 1444 PRINT#1,CHR$(10)
  170. 1446 PRINT#1,TAB(2)"Z=";Z;"OHM'S"
  171. 1448 PRINT#1,CHR$(10)
  172. 1450 PRINT#1,TAB(2)"(LOW PASS SECTION)"
  173. 1460 PRINT#1,CHR$(10)
  174. 1470 PRINT#1,TAB(2)"INPUT INDUCTOR=";L3;"MH."
  175. 1480 PRINT#1,CHR$(10)
  176. 1490 PRINT#1,TAB(2)"OUTPUT INDUCTOR=";L1;"MH."
  177. 1500 PRINT#1,CHR$(10)
  178. 1510 PRINT#1,TAB(2)"SWAMP CAPACITOR=";C4;"UF."
  179. 1520 PRINT#1,CHR$(10)CHR$(10)
  180. 1530 PRINT#1,TAB(2)"(HIGH PASS SECTION)"
  181. 1540 PRINT#1,CHR$(10)
  182. 1550 PRINT#1,TAB(2)"INPUT CAPACITOR=";C3;"UF."
  183. 1560 PRINT#1,CHR$(10)
  184. 1570 PRINT#1,TAB(2)"OUTPUT CAPACITOR=";C1;"UF."
  185. 1580 PRINT#1,CHR$(10)
  186. 1590 PRINT#1,TAB(2)"SWAMP INDUCTOR=";L4;"MH."
  187. 1595 PRINT#1,CHR$(10)CHR$(10)CHR$(10)CHR$(10)CHR$(10)
  188. 1600 CLOSE1
  189. 1610 GOTO30
  190.